program pr;

type

t_indice = 1..9;
t_vector = Array[t_indice] of Char;
t_vector2 = Array [1..99] of Char;
dias = (lunes,martes,miercoles,jueves,viernes,sabado);


var 
x,y,z: entero;
dia: dias;
vector: t_vector;

procedure IO (var i,j:integer; k:real);
var
z:integer;

Begin {Del procedure}

procedure intercambia(var i,j: integer);
var
	aux: integer

begin
	aux:=j;
	j:=i;
	i:=aux;
end; {del procedure intercambia}





z:=7;

End;

begin
if (x>0) then 
x:=5;
else 
x:=6;

while (x>0) do
x:=5;

intercambia(x,y);


End.